home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / System / Device.p next >
Encoding:
Text File  |  2000-05-03  |  1.5 KB  |  44 lines
  1. pTempVar <- <primitive 110 9 >
  2. <primitive 112 pTempVar 1  " write:this: " \
  3.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  4.     #( 'write: devName this: string' #subClassResponsibility:  )) >
  5.  
  6. <primitive 112 pTempVar 2  " update " \
  7.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  8.     #( 'update' #notImplemented:  )) >
  9.  
  10. <primitive 112 pTempVar 3  " start " \
  11.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  12.     #( 'start' #notImplemented:  )) >
  13.  
  14. <primitive 112 pTempVar 4  " stop " \
  15.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  16.     #( 'stop' #notImplemented:  )) >
  17.  
  18. <primitive 112 pTempVar 5  " reset: " \
  19.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  20.     #( 'reset: devName' #subClassResponsibility:  )) >
  21.  
  22. <primitive 112 pTempVar 6  " read: " \
  23.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  24.     #( 'read: devName' #notImplemented:  )) >
  25.  
  26. <primitive 112 pTempVar 7  " invalid " \
  27.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  28.     #( 'invalid' #notImplemented:  )) >
  29.  
  30. <primitive 112 pTempVar 8  " flush: " \
  31.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  32.     #( 'flush: devName' #subClassResponsibility:  )) >
  33.  
  34. <primitive 112 pTempVar 9  " clear " \
  35.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  36.     #( 'clear' #notImplemented:  )) >
  37.  
  38. <primitive 98 #Device \
  39.   <primitive 97 #Device #Object #AmigaTalk:System/Device.st \
  40.    #(  ) \
  41.    #( #write:this: #update #start #stop #reset: #read: #invalid #flush: #clear  ) \
  42.   pTempVar 3 3 >>
  43.  
  44.